3.2.32 \(\int \frac {(a+c x^4)^2}{d+e x^2} \, dx\) [132]

Optimal. Leaf size=108 \[ -\frac {c d \left (c d^2+2 a e^2\right ) x}{e^4}+\frac {c \left (c d^2+2 a e^2\right ) x^3}{3 e^3}-\frac {c^2 d x^5}{5 e^2}+\frac {c^2 x^7}{7 e}+\frac {\left (c d^2+a e^2\right )^2 \tan ^{-1}\left (\frac {\sqrt {e} x}{\sqrt {d}}\right )}{\sqrt {d} e^{9/2}} \]

[Out]

-c*d*(2*a*e^2+c*d^2)*x/e^4+1/3*c*(2*a*e^2+c*d^2)*x^3/e^3-1/5*c^2*d*x^5/e^2+1/7*c^2*x^7/e+(a*e^2+c*d^2)^2*arcta
n(x*e^(1/2)/d^(1/2))/e^(9/2)/d^(1/2)

________________________________________________________________________________________

Rubi [A]
time = 0.05, antiderivative size = 108, normalized size of antiderivative = 1.00, number of steps used = 3, number of rules used = 2, integrand size = 19, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.105, Rules used = {1168, 211} \begin {gather*} \frac {\left (a e^2+c d^2\right )^2 \text {ArcTan}\left (\frac {\sqrt {e} x}{\sqrt {d}}\right )}{\sqrt {d} e^{9/2}}-\frac {c d x \left (2 a e^2+c d^2\right )}{e^4}+\frac {c x^3 \left (2 a e^2+c d^2\right )}{3 e^3}-\frac {c^2 d x^5}{5 e^2}+\frac {c^2 x^7}{7 e} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(a + c*x^4)^2/(d + e*x^2),x]

[Out]

-((c*d*(c*d^2 + 2*a*e^2)*x)/e^4) + (c*(c*d^2 + 2*a*e^2)*x^3)/(3*e^3) - (c^2*d*x^5)/(5*e^2) + (c^2*x^7)/(7*e) +
((c*d^2 + a*e^2)^2*ArcTan[(Sqrt[e]*x)/Sqrt[d]])/(Sqrt[d]*e^(9/2))

Rule 211

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(Rt[a/b, 2]/a)*ArcTan[x/Rt[a/b, 2]], x] /; FreeQ[{a, b}, x]
&& PosQ[a/b]

Rule 1168

Int[((d_) + (e_.)*(x_)^2)^(q_.)*((a_) + (c_.)*(x_)^4)^(p_.), x_Symbol] :> Int[ExpandIntegrand[(d + e*x^2)^q*(a
+ c*x^4)^p, x], x] /; FreeQ[{a, c, d, e}, x] && NeQ[c*d^2 + a*e^2, 0] && IGtQ[p, 0] && IGtQ[q, -2]

Rubi steps

\begin {align*} \int \frac {\left (a+c x^4\right )^2}{d+e x^2} \, dx &=\int \left (-\frac {c d \left (c d^2+2 a e^2\right )}{e^4}+\frac {c \left (c d^2+2 a e^2\right ) x^2}{e^3}-\frac {c^2 d x^4}{e^2}+\frac {c^2 x^6}{e}+\frac {c^2 d^4+2 a c d^2 e^2+a^2 e^4}{e^4 \left (d+e x^2\right )}\right ) \, dx\\ &=-\frac {c d \left (c d^2+2 a e^2\right ) x}{e^4}+\frac {c \left (c d^2+2 a e^2\right ) x^3}{3 e^3}-\frac {c^2 d x^5}{5 e^2}+\frac {c^2 x^7}{7 e}+\frac {\left (c d^2+a e^2\right )^2 \int \frac {1}{d+e x^2} \, dx}{e^4}\\ &=-\frac {c d \left (c d^2+2 a e^2\right ) x}{e^4}+\frac {c \left (c d^2+2 a e^2\right ) x^3}{3 e^3}-\frac {c^2 d x^5}{5 e^2}+\frac {c^2 x^7}{7 e}+\frac {\left (c d^2+a e^2\right )^2 \tan ^{-1}\left (\frac {\sqrt {e} x}{\sqrt {d}}\right )}{\sqrt {d} e^{9/2}}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.05, size = 97, normalized size = 0.90 \begin {gather*} \frac {c x \left (70 a e^2 \left (-3 d+e x^2\right )+c \left (-105 d^3+35 d^2 e x^2-21 d e^2 x^4+15 e^3 x^6\right )\right )}{105 e^4}+\frac {\left (c d^2+a e^2\right )^2 \tan ^{-1}\left (\frac {\sqrt {e} x}{\sqrt {d}}\right )}{\sqrt {d} e^{9/2}} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(a + c*x^4)^2/(d + e*x^2),x]

[Out]

(c*x*(70*a*e^2*(-3*d + e*x^2) + c*(-105*d^3 + 35*d^2*e*x^2 - 21*d*e^2*x^4 + 15*e^3*x^6)))/(105*e^4) + ((c*d^2
+ a*e^2)^2*ArcTan[(Sqrt[e]*x)/Sqrt[d]])/(Sqrt[d]*e^(9/2))

________________________________________________________________________________________

Maple [A]
time = 0.18, size = 104, normalized size = 0.96

method	result	size
default	\(-\frac {c \left (-\frac {c \,x^{7} e^{3}}{7}+\frac {c d \,x^{5} e^{2}}{5}-\frac {\left (2 a \,e^{2}+c \,d^{2}\right ) x^{3} e}{3}+d \left (2 a \,e^{2}+c \,d^{2}\right ) x \right )}{e^{4}}+\frac {\left (a^{2} e^{4}+2 a c \,d^{2} e^{2}+c^{2} d^{4}\right ) \arctan \left (\frac {e x}{\sqrt {d e}}\right )}{e^{4} \sqrt {d e}}\)	\(104\)
risch	\(\frac {c^{2} x^{7}}{7 e}-\frac {c^{2} d \,x^{5}}{5 e^{2}}+\frac {2 c a \,x^{3}}{3 e}+\frac {c^{2} d^{2} x^{3}}{3 e^{3}}-\frac {2 c a d x}{e^{2}}-\frac {c^{2} d^{3} x}{e^{4}}-\frac {\ln \left (e x +\sqrt {-d e}\right ) a^{2}}{2 \sqrt {-d e}}-\frac {\ln \left (e x +\sqrt {-d e}\right ) a c \,d^{2}}{e^{2} \sqrt {-d e}}-\frac {\ln \left (e x +\sqrt {-d e}\right ) c^{2} d^{4}}{2 e^{4} \sqrt {-d e}}+\frac {\ln \left (-e x +\sqrt {-d e}\right ) a^{2}}{2 \sqrt {-d e}}+\frac {\ln \left (-e x +\sqrt {-d e}\right ) a c \,d^{2}}{e^{2} \sqrt {-d e}}+\frac {\ln \left (-e x +\sqrt {-d e}\right ) c^{2} d^{4}}{2 e^{4} \sqrt {-d e}}\)	\(226\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((c*x^4+a)^2/(e*x^2+d),x,method=_RETURNVERBOSE)

[Out]

-c/e^4*(-1/7*c*x^7*e^3+1/5*c*d*x^5*e^2-1/3*(2*a*e^2+c*d^2)*x^3*e+d*(2*a*e^2+c*d^2)*x)+(a^2*e^4+2*a*c*d^2*e^2+c
^2*d^4)/e^4/(d*e)^(1/2)*arctan(e*x/(d*e)^(1/2))

________________________________________________________________________________________

Maxima [A]
time = 0.50, size = 103, normalized size = 0.95 \begin {gather*} \frac {{\left (c^{2} d^{4} + 2 \, a c d^{2} e^{2} + a^{2} e^{4}\right )} \arctan \left (\frac {x e^{\frac {1}{2}}}{\sqrt {d}}\right ) e^{\left (-\frac {9}{2}\right )}}{\sqrt {d}} + \frac {1}{105} \, {\left (15 \, c^{2} x^{7} e^{3} - 21 \, c^{2} d x^{5} e^{2} + 35 \, {\left (c^{2} d^{2} e + 2 \, a c e^{3}\right )} x^{3} - 105 \, {\left (c^{2} d^{3} + 2 \, a c d e^{2}\right )} x\right )} e^{\left (-4\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((c*x^4+a)^2/(e*x^2+d),x, algorithm="maxima")

[Out]

(c^2*d^4 + 2*a*c*d^2*e^2 + a^2*e^4)*arctan(x*e^(1/2)/sqrt(d))*e^(-9/2)/sqrt(d) + 1/105*(15*c^2*x^7*e^3 - 21*c^
2*d*x^5*e^2 + 35*(c^2*d^2*e + 2*a*c*e^3)*x^3 - 105*(c^2*d^3 + 2*a*c*d*e^2)*x)*e^(-4)

________________________________________________________________________________________

Fricas [A]
time = 0.34, size = 257, normalized size = 2.38 \begin {gather*} \left [\frac {{\left (70 \, c^{2} d^{3} x^{3} e^{2} - 210 \, c^{2} d^{4} x e - 105 \, {\left (c^{2} d^{4} + 2 \, a c d^{2} e^{2} + a^{2} e^{4}\right )} \sqrt {-d e} \log \left (\frac {x^{2} e - 2 \, \sqrt {-d e} x - d}{x^{2} e + d}\right ) + 10 \, {\left (3 \, c^{2} d x^{7} + 14 \, a c d x^{3}\right )} e^{4} - 42 \, {\left (c^{2} d^{2} x^{5} + 10 \, a c d^{2} x\right )} e^{3}\right )} e^{\left (-5\right )}}{210 \, d}, \frac {{\left (35 \, c^{2} d^{3} x^{3} e^{2} - 105 \, c^{2} d^{4} x e + 105 \, {\left (c^{2} d^{4} + 2 \, a c d^{2} e^{2} + a^{2} e^{4}\right )} \sqrt {d} \arctan \left (\frac {x e^{\frac {1}{2}}}{\sqrt {d}}\right ) e^{\frac {1}{2}} + 5 \, {\left (3 \, c^{2} d x^{7} + 14 \, a c d x^{3}\right )} e^{4} - 21 \, {\left (c^{2} d^{2} x^{5} + 10 \, a c d^{2} x\right )} e^{3}\right )} e^{\left (-5\right )}}{105 \, d}\right ] \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((c*x^4+a)^2/(e*x^2+d),x, algorithm="fricas")

[Out]

[1/210*(70*c^2*d^3*x^3*e^2 - 210*c^2*d^4*x*e - 105*(c^2*d^4 + 2*a*c*d^2*e^2 + a^2*e^4)*sqrt(-d*e)*log((x^2*e -
2*sqrt(-d*e)*x - d)/(x^2*e + d)) + 10*(3*c^2*d*x^7 + 14*a*c*d*x^3)*e^4 - 42*(c^2*d^2*x^5 + 10*a*c*d^2*x)*e^3)
*e^(-5)/d, 1/105*(35*c^2*d^3*x^3*e^2 - 105*c^2*d^4*x*e + 105*(c^2*d^4 + 2*a*c*d^2*e^2 + a^2*e^4)*sqrt(d)*arcta
n(x*e^(1/2)/sqrt(d))*e^(1/2) + 5*(3*c^2*d*x^7 + 14*a*c*d*x^3)*e^4 - 21*(c^2*d^2*x^5 + 10*a*c*d^2*x)*e^3)*e^(-5
)/d]

________________________________________________________________________________________

Sympy [B] Leaf count of result is larger than twice the leaf count of optimal. 236 vs. \(2 (100) = 200\).
time = 0.25, size = 236, normalized size = 2.19 \begin {gather*} - \frac {c^{2} d x^{5}}{5 e^{2}} + \frac {c^{2} x^{7}}{7 e} + x^{3} \cdot \left (\frac {2 a c}{3 e} + \frac {c^{2} d^{2}}{3 e^{3}}\right ) + x \left (- \frac {2 a c d}{e^{2}} - \frac {c^{2} d^{3}}{e^{4}}\right ) - \frac {\sqrt {- \frac {1}{d e^{9}}} \left (a e^{2} + c d^{2}\right )^{2} \log {\left (- \frac {d e^{4} \sqrt {- \frac {1}{d e^{9}}} \left (a e^{2} + c d^{2}\right )^{2}}{a^{2} e^{4} + 2 a c d^{2} e^{2} + c^{2} d^{4}} + x \right )}}{2} + \frac {\sqrt {- \frac {1}{d e^{9}}} \left (a e^{2} + c d^{2}\right )^{2} \log {\left (\frac {d e^{4} \sqrt {- \frac {1}{d e^{9}}} \left (a e^{2} + c d^{2}\right )^{2}}{a^{2} e^{4} + 2 a c d^{2} e^{2} + c^{2} d^{4}} + x \right )}}{2} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((c*x**4+a)**2/(e*x**2+d),x)

[Out]

-c**2*d*x**5/(5*e**2) + c**2*x**7/(7*e) + x**3*(2*a*c/(3*e) + c**2*d**2/(3*e**3)) + x*(-2*a*c*d/e**2 - c**2*d*
*3/e**4) - sqrt(-1/(d*e**9))*(a*e**2 + c*d**2)**2*log(-d*e**4*sqrt(-1/(d*e**9))*(a*e**2 + c*d**2)**2/(a**2*e**
4 + 2*a*c*d**2*e**2 + c**2*d**4) + x)/2 + sqrt(-1/(d*e**9))*(a*e**2 + c*d**2)**2*log(d*e**4*sqrt(-1/(d*e**9))*
(a*e**2 + c*d**2)**2/(a**2*e**4 + 2*a*c*d**2*e**2 + c**2*d**4) + x)/2

________________________________________________________________________________________

Giac [A]
time = 5.49, size = 105, normalized size = 0.97 \begin {gather*} \frac {{\left (c^{2} d^{4} + 2 \, a c d^{2} e^{2} + a^{2} e^{4}\right )} \arctan \left (\frac {x e^{\frac {1}{2}}}{\sqrt {d}}\right ) e^{\left (-\frac {9}{2}\right )}}{\sqrt {d}} + \frac {1}{105} \, {\left (15 \, c^{2} x^{7} e^{6} - 21 \, c^{2} d x^{5} e^{5} + 35 \, c^{2} d^{2} x^{3} e^{4} - 105 \, c^{2} d^{3} x e^{3} + 70 \, a c x^{3} e^{6} - 210 \, a c d x e^{5}\right )} e^{\left (-7\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((c*x^4+a)^2/(e*x^2+d),x, algorithm="giac")

[Out]

(c^2*d^4 + 2*a*c*d^2*e^2 + a^2*e^4)*arctan(x*e^(1/2)/sqrt(d))*e^(-9/2)/sqrt(d) + 1/105*(15*c^2*x^7*e^6 - 21*c^
2*d*x^5*e^5 + 35*c^2*d^2*x^3*e^4 - 105*c^2*d^3*x*e^3 + 70*a*c*x^3*e^6 - 210*a*c*d*x*e^5)*e^(-7)

________________________________________________________________________________________

Mupad [B]
time = 4.39, size = 141, normalized size = 1.31 \begin {gather*} x^3\,\left (\frac {c^2\,d^2}{3\,e^3}+\frac {2\,a\,c}{3\,e}\right )+\frac {c^2\,x^7}{7\,e}-\frac {c^2\,d\,x^5}{5\,e^2}+\frac {\mathrm {atan}\left (\frac {\sqrt {e}\,x\,{\left (c\,d^2+a\,e^2\right )}^2}{\sqrt {d}\,\left (a^2\,e^4+2\,a\,c\,d^2\,e^2+c^2\,d^4\right )}\right )\,{\left (c\,d^2+a\,e^2\right )}^2}{\sqrt {d}\,e^{9/2}}-\frac {d\,x\,\left (\frac {c^2\,d^2}{e^3}+\frac {2\,a\,c}{e}\right )}{e} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((a + c*x^4)^2/(d + e*x^2),x)

[Out]

x^3*((c^2*d^2)/(3*e^3) + (2*a*c)/(3*e)) + (c^2*x^7)/(7*e) - (c^2*d*x^5)/(5*e^2) + (atan((e^(1/2)*x*(a*e^2 + c*
d^2)^2)/(d^(1/2)*(a^2*e^4 + c^2*d^4 + 2*a*c*d^2*e^2)))*(a*e^2 + c*d^2)^2)/(d^(1/2)*e^(9/2)) - (d*x*((c^2*d^2)/
e^3 + (2*a*c)/e))/e

________________________________________________________________________________________